## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:data.table':
## 
##     between, first, last
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
## 
## Attaching package: 'qqplotr'
## The following objects are masked from 'package:ggplot2':
## 
##     stat_qq_line, StatQqLine
## 
## Attaching package: 'gridExtra'
## The following object is masked from 'package:dplyr':
## 
##     combine
# EXPLORATORY FOR TRIP.TOTAL BY COMPANY
# max by company
data[,max(Trip.Total),by=Company]
##                                          Company      V1
##  1:                          Top Cab Affiliation  861.72
##  2:            Blue Ribbon Taxi Association Inc. 6666.66
##  3:                    Taxi Affiliation Services 9955.55
##  4:                                     Sun Taxi 1269.25
##  5:                             Medallion Leasin 9226.18
##  6:                                 City Service 9004.25
##  7:                         Chicago Independents 9300.25
##  8:                    Chicago Carriage Cab Corp 7549.40
##  9:                    Star North Management LLC 1100.25
## 10:                                    Flash Cab 5914.00
## 11:                              Petani Cab Corp  500.01
## 12:                Taxicab Insurance Agency, LLC  970.37
## 13:                      Choice Taxi Association  813.50
## 14:         Patriot Taxi Dba Peace Taxi Associat  675.50
## 15:                 Chicago Medallion Management  203.00
## 16:                                24 Seven Taxi  520.75
## 17:                        KOAM Taxi Association  188.00
## 18:                312 Medallion Management Corp  599.86
## 19:                        Suburban Dispatch LLC 5321.20
## 20:                              Chicago Taxicab 9900.27
## 21:                    Nova Taxi Affiliation Llc  526.50
## 22:              Taxi Affiliation Service Yellow  311.25
## 23:                                 Blue Diamond  141.60
## 24:                                   Setare Inc  211.89
## 25:                      6743 - 78771 Luhak Corp  106.75
## 26:                             Metro Jet Taxi A 9900.26
## 27:                               Leonard Cab Co  487.50
## 28:                      5062 - 34841 Sam Mestas  141.00
## 29:                 4053 - 40193 Adwar H. Nikola  107.50
## 30:                    3011 - 66308 JBL Cab Inc.  114.25
## 31:                                    U Taxicab 1746.75
## 32:                   3094 - 24059 G.L.B. Cab Co   62.75
## 33:                                  5 Star Taxi  209.06
## 34:                   2092 - 61288 Sbeih company   80.00
## 35:                  3556 - 36214 RC Andrews Cab  146.25
## 36:                  6742 - 83735 Tasha ride inc   67.75
## 37:                  1085 - 72312 N and W Cab Co   88.00
## 38:                      2733 - 74600 Benny Jona  348.00
## 39:                5874 - 73628 Sergey Cab Corp.  171.50
## 40:              3620 - 52292 David K. Cab Corp.  126.10
## 41:                     4787 - 56058 Reny Cab Co   54.00
## 42:                     Checker Taxi Affiliation  302.75
## 43:                     5006 - 39261 Salifu Bawa  120.50
## 44:                         4623 - 27290 Jay Kim  320.20
## 45:                  6574 - Babylon Express Inc.  152.50
## 46:           3623 - 72222 Arrington Enterprises  106.50
## 47: 3721 - Santamaria Express, Alvaro Santamaria   96.75
## 48:                       3591 - 63480 Chuks Cab  192.75
## 49:               4523 - 79481 Hazel Transit Inc   87.90
## 50:                                    CMT-Sales    3.00
## 51:                                   Globe Taxi  842.00
## 52:               Metro Jet Cab Association Inc. 1000.77
##                                          Company      V1
data %>%
  group_by(Company) %>%
  summarise(max(Trip.Total),n=n())
## # A tibble: 52 x 3
##    Company                         `max(Trip.Total)`     n
##    <chr>                                       <dbl> <int>
##  1 1085 - 72312 N and W Cab Co                  88     903
##  2 2092 - 61288 Sbeih company                   80     621
##  3 24 Seven Taxi                               521.  31615
##  4 2733 - 74600 Benny Jona                     348     918
##  5 3011 - 66308 JBL Cab Inc.                   114.   2164
##  6 3094 - 24059 G.L.B. Cab Co                   62.8   680
##  7 312 Medallion Management Corp               600.   6028
##  8 3556 - 36214 RC Andrews Cab                 146.   1648
##  9 3591 - 63480 Chuks Cab                      193.   1652
## 10 3620 - 52292 David K. Cab Corp.             126.    420
## # … with 42 more rows
# mean by company
data[,mean(Trip.Total),by=Company]
##                                          Company         V1
##  1:                          Top Cab Affiliation  18.519197
##  2:            Blue Ribbon Taxi Association Inc.  13.999520
##  3:                    Taxi Affiliation Services  16.610239
##  4:                                     Sun Taxi  18.428482
##  5:                             Medallion Leasin  19.656913
##  6:                                 City Service  20.618256
##  7:                         Chicago Independents  20.499752
##  8:                    Chicago Carriage Cab Corp  16.689448
##  9:                    Star North Management LLC  17.963442
## 10:                                    Flash Cab  17.113360
## 11:                              Petani Cab Corp  33.305028
## 12:                Taxicab Insurance Agency, LLC  17.013807
## 13:                      Choice Taxi Association  16.263783
## 14:         Patriot Taxi Dba Peace Taxi Associat  17.244195
## 15:                 Chicago Medallion Management  13.470327
## 16:                                24 Seven Taxi  16.504790
## 17:                        KOAM Taxi Association  16.070746
## 18:                312 Medallion Management Corp  24.963273
## 19:                        Suburban Dispatch LLC  40.982465
## 20:                              Chicago Taxicab  63.869807
## 21:                    Nova Taxi Affiliation Llc  14.995876
## 22:              Taxi Affiliation Service Yellow  22.405282
## 23:                                 Blue Diamond  15.724369
## 24:                                   Setare Inc  15.899738
## 25:                      6743 - 78771 Luhak Corp  13.101604
## 26:                             Metro Jet Taxi A 298.146343
## 27:                               Leonard Cab Co  15.348714
## 28:                      5062 - 34841 Sam Mestas   9.806841
## 29:                 4053 - 40193 Adwar H. Nikola  36.594292
## 30:                    3011 - 66308 JBL Cab Inc.  12.185342
## 31:                                    U Taxicab  26.808670
## 32:                   3094 - 24059 G.L.B. Cab Co   9.291912
## 33:                                  5 Star Taxi  26.718756
## 34:                   2092 - 61288 Sbeih company  18.034863
## 35:                  3556 - 36214 RC Andrews Cab  16.181432
## 36:                  6742 - 83735 Tasha ride inc  13.053601
## 37:                  1085 - 72312 N and W Cab Co  11.414275
## 38:                      2733 - 74600 Benny Jona  33.560011
## 39:                5874 - 73628 Sergey Cab Corp.  20.182059
## 40:              3620 - 52292 David K. Cab Corp.  32.620238
## 41:                     4787 - 56058 Reny Cab Co  10.333438
## 42:                     Checker Taxi Affiliation  17.969850
## 43:                     5006 - 39261 Salifu Bawa  10.943324
## 44:                         4623 - 27290 Jay Kim  35.977952
## 45:                  6574 - Babylon Express Inc.  17.181725
## 46:           3623 - 72222 Arrington Enterprises  16.751207
## 47: 3721 - Santamaria Express, Alvaro Santamaria  20.509840
## 48:                       3591 - 63480 Chuks Cab  10.363717
## 49:               4523 - 79481 Hazel Transit Inc  27.214103
## 50:                                    CMT-Sales   1.166667
## 51:                                   Globe Taxi  20.061017
## 52:               Metro Jet Cab Association Inc.  21.775928
##                                          Company         V1
data %>%
  group_by(Company) %>%
  summarise(mean(Trip.Total),n=n())
## # A tibble: 52 x 3
##    Company                         `mean(Trip.Total)`     n
##    <chr>                                        <dbl> <int>
##  1 1085 - 72312 N and W Cab Co                  11.4    903
##  2 2092 - 61288 Sbeih company                   18.0    621
##  3 24 Seven Taxi                                16.5  31615
##  4 2733 - 74600 Benny Jona                      33.6    918
##  5 3011 - 66308 JBL Cab Inc.                    12.2   2164
##  6 3094 - 24059 G.L.B. Cab Co                    9.29   680
##  7 312 Medallion Management Corp                25.0   6028
##  8 3556 - 36214 RC Andrews Cab                  16.2   1648
##  9 3591 - 63480 Chuks Cab                       10.4   1652
## 10 3620 - 52292 David K. Cab Corp.              32.6    420
## # … with 42 more rows
# sum by company
data[,sum(Trip.Total),by=Company]
##                                          Company          V1
##  1:                          Top Cab Affiliation  1376920.85
##  2:            Blue Ribbon Taxi Association Inc.  2272024.13
##  3:                    Taxi Affiliation Services 17502940.00
##  4:                                     Sun Taxi  4669482.48
##  5:                             Medallion Leasin  4592051.52
##  6:                                 City Service  4515996.05
##  7:                         Chicago Independents  1588197.76
##  8:                    Chicago Carriage Cab Corp  4606638.17
##  9:                    Star North Management LLC  2956153.88
## 10:                                    Flash Cab 15406131.08
## 11:                              Petani Cab Corp    53987.45
## 12:                Taxicab Insurance Agency, LLC  2402740.89
## 13:                      Choice Taxi Association  1451477.58
## 14:         Patriot Taxi Dba Peace Taxi Associat   669609.33
## 15:                 Chicago Medallion Management   119549.15
## 16:                                24 Seven Taxi   521798.93
## 17:                        KOAM Taxi Association   342081.89
## 18:                312 Medallion Management Corp   150478.61
## 19:                        Suburban Dispatch LLC   230075.56
## 20:                              Chicago Taxicab  1745242.48
## 21:                    Nova Taxi Affiliation Llc   425178.06
## 22:              Taxi Affiliation Service Yellow    50859.99
## 23:                                 Blue Diamond    13711.65
## 24:                                   Setare Inc   193452.11
## 25:                      6743 - 78771 Luhak Corp    13966.31
## 26:                             Metro Jet Taxi A  2506218.16
## 27:                               Leonard Cab Co    41410.83
## 28:                      5062 - 34841 Sam Mestas    11081.73
## 29:                 4053 - 40193 Adwar H. Nikola     8526.47
## 30:                    3011 - 66308 JBL Cab Inc.    26369.08
## 31:                                    U Taxicab   408242.43
## 32:                   3094 - 24059 G.L.B. Cab Co     6318.50
## 33:                                  5 Star Taxi   125845.34
## 34:                   2092 - 61288 Sbeih company    11199.65
## 35:                  3556 - 36214 RC Andrews Cab    26667.00
## 36:                  6742 - 83735 Tasha ride inc     8445.68
## 37:                  1085 - 72312 N and W Cab Co    10307.09
## 38:                      2733 - 74600 Benny Jona    30808.09
## 39:                5874 - 73628 Sergey Cab Corp.    10191.94
## 40:              3620 - 52292 David K. Cab Corp.    13700.50
## 41:                     4787 - 56058 Reny Cab Co     5590.39
## 42:                     Checker Taxi Affiliation    10781.91
## 43:                     5006 - 39261 Salifu Bawa     7802.59
## 44:                         4623 - 27290 Jay Kim    20903.19
## 45:                  6574 - Babylon Express Inc.     9364.04
## 46:           3623 - 72222 Arrington Enterprises    10268.49
## 47: 3721 - Santamaria Express, Alvaro Santamaria     6399.07
## 48:                       3591 - 63480 Chuks Cab    17120.86
## 49:               4523 - 79481 Hazel Transit Inc     3184.05
## 50:                                    CMT-Sales        7.00
## 51:                                   Globe Taxi   206307.50
## 52:               Metro Jet Cab Association Inc.    15722.22
##                                          Company          V1
data %>%
  group_by(Company) %>%
  summarise(sum(Trip.Total),n=n())
## # A tibble: 52 x 3
##    Company                         `sum(Trip.Total)`     n
##    <chr>                                       <dbl> <int>
##  1 1085 - 72312 N and W Cab Co                10307.   903
##  2 2092 - 61288 Sbeih company                 11200.   621
##  3 24 Seven Taxi                             521799. 31615
##  4 2733 - 74600 Benny Jona                    30808.   918
##  5 3011 - 66308 JBL Cab Inc.                  26369.  2164
##  6 3094 - 24059 G.L.B. Cab Co                  6318.   680
##  7 312 Medallion Management Corp             150479.  6028
##  8 3556 - 36214 RC Andrews Cab                26667   1648
##  9 3591 - 63480 Chuks Cab                     17121.  1652
## 10 3620 - 52292 David K. Cab Corp.            13700.   420
## # … with 42 more rows